home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
551-575
/
disk_570
/
gadtoolsbox
/
source
/
source.lha
/
Button.c
< prev
next >
Wrap
C/C++ Source or Header
|
1991-11-04
|
14KB
|
426 lines
/*-- AutoRev header do NOT edit!
*
* Program : Button.c
* Copyright : © Copyright 1991 Jaba Development
* Author : Jan van den Baard
* Creation Date : 01-Oct-91
* Current version : 1.00
* Translator : DICE v2.6
*
* REVISION HISTORY
*
* Date Version Comment
* --------- ------- ------------------------------------------
* 01-Oct-91 1.00 Button editor.
*
*-- REV_END --*/
#include "GTEd.h"
#include "Protos.h"
/*
* --- External referenced data
*/
extern ULONG Class;
extern UWORD Code;
extern struct Gadget *Object;
extern APTR MainVisualInfo;
extern struct TextAttr Topaz80;
extern struct Screen *MainScreen;
extern struct Window *MainWindow;
extern UWORD ngFlags;
extern WORD ngLeft, ngTop, ngWidth, ngHeight;
extern UBYTE *PlaceList[];
extern UWORD PlaceFlags[];
extern struct ExtGadgetList Gadgets;
extern struct MemoryChain *Chain;
extern BOOL Saved;
/*
* --- Gadget ID's
*/
#define GD_TEXT 0
#define GD_LABEL 1
#define GD_UNDERSCORE 2
#define GD_DISABLED 3
#define GD_TEXTPLACE 4
#define GD_OK 5
#define GD_CANCEL 6
/*
* --- Module data
*/
struct Window *eb_Wnd = NULL;
struct Gadget *eb_GList = NULL;
struct Gadget *eb_Gadgets[5];
BOOL eb_Score = FALSE, eb_Disabled = FALSE;
WORD eb_Zoom[4];
struct TagItem eb_nwTags[] = {
WA_Left, 0l,
WA_Top, 0l,
WA_Width, 0l,
WA_Height, 0l,
WA_IDCMP, IDCMP_CLOSEWINDOW | CYCLEIDCMP | BUTTONIDCMP | CHECKBOXIDCMP | IDCMP_REFRESHWINDOW | IDCMP_VANILLAKEY,
WA_Flags, WFLG_DRAGBAR | WFLG_DEPTHGADGET | WFLG_CLOSEGADGET | WFLG_SMART_REFRESH | WFLG_ACTIVATE | WFLG_RMBTRAP,
WA_Gadgets, 0l,
WA_Title, "Edit BUTTON gadget:",
WA_AutoAdjust, TRUE,
WA_Zoom, (Tag)eb_Zoom,
WA_CustomScreen, 0l,
TAG_DONE };
/*
* --- Create the button gadget.
*/
long MakeButton( void )
{
struct ExtNewGadget *eng = 0l;
struct TagItem *tags = 0l;
if ( eng = AllocItem( Chain, (long)sizeof( struct ExtNewGadget ), MEMF_PUBLIC )) {
if ( tags = MakeTagList( 1l )) {
eng->en_NumTags = 1l;
eng->en_Tags = tags;
ChangeButton( eng );
RemoveAllGadgets();
AddTail(( struct List * )&Gadgets, ( struct Node * )eng );
Renumber();
if ( RemakeAllGadgets())
return TRUE;
Remove(( struct Node * )eng);
}
}
MyRequest( "Ahem....", "CONTINUE", "Out of memory !" );
if ( tags ) FreeTagList( tags, 1l );
if ( eng ) FreeItem( Chain, eng, (long)sizeof( struct ExtNewGadget ));
return FALSE;
}
/*
* --- Change the button gadget.
*/
void ChangeButton( struct ExtNewGadget *eng )
{
struct TagItem *tags;
UBYTE *slab, *text, tn = 0;
tags = eng->en_Tags;
slab = (( struct StringInfo * )eb_Gadgets[ GD_LABEL ]->SpecialInfo )->Buffer;
text = (( struct StringInfo * )eb_Gadgets[ GD_TEXT ]->SpecialInfo )->Buffer;
eng->en_NewGadget.ng_LeftEdge = ngLeft;
eng->en_NewGadget.ng_TopEdge = ngTop;
eng->en_NewGadget.ng_Width = ngWidth;
eng->en_NewGadget.ng_Height = ngHeight;
if ( strncmp( slab, "Gadget", 6) && strlen( slab )) {
strcpy( &eng->en_SourceLabel[0], slab );
eng->en_SpecialFlags |= EGF_USERLABEL;
} else
eng->en_SpecialFlags = 0l;
if ( strlen( text )) {
strcpy( &eng->en_GadgetText[0], text );
eng->en_NewGadget.ng_GadgetText = &eng->en_GadgetText[0];
eng->en_NewGadget.ng_Flags = ngFlags;
} else {
eng->en_NewGadget.ng_GadgetText = 0l;
eng->en_NewGadget.ng_Flags = 0;
}
eng->en_Kind = BUTTON_KIND;
if ( eb_Score && strlen( text )) {
tags[ tn ].ti_Tag = GT_Underscore;
tags[ tn++ ].ti_Data = (Tag)'_';
}
if ( eb_Disabled )
eng->en_SpecialFlags |= EGF_DISABLED;
tags[ tn ].ti_Tag = TAG_DONE;
Saved = FALSE;
}
/*
* --- Open the EditButton requester.
*/
long EditButton( WORD x, WORD y, WORD x1, WORD y1, struct Gadget *edit )
{
struct Gadget *g;
struct ExtNewGadget *e;
struct NewGadget ng;
BOOL running = TRUE, ok = FALSE;
WORD l, t, w, h, btop, bleft, gw, gh;
UBYTE *label = 0l, *slabel = 0l, gbuf[10];
Tag place = 0l;
UWORD flag = PLACETEXT_IN, ID;
if ( edit ) {
e = FindExtGad( edit );
x = e->en_NewGadget.ng_LeftEdge;
y = e->en_NewGadget.ng_TopEdge;
gw = e->en_NewGadget.ng_Width;
gh = e->en_NewGadget.ng_Height;
label = &e->en_GadgetText[0];
slabel = &e->en_SourceLabel[0];
flag = e->en_NewGadget.ng_Flags;
if ( flag == PLACETEXT_IN ) place = 0l;
if ( flag == PLACETEXT_LEFT ) place = 1l;
if ( flag == PLACETEXT_RIGHT ) place = 2l;
if ( flag == PLACETEXT_ABOVE ) place = 3l;
if ( flag == PLACETEXT_BELOW ) place = 4l;
eb_Score = MyTagInArray( GT_Underscore, e->en_Tags );
if (( e->en_SpecialFlags & EGF_DISABLED ) == EGF_DISABLED )
eb_Disabled = TRUE;
else
eb_Disabled = FALSE;
} else {
if ( x > x1 ) { gw = x; x = x1; x1 = gw; }
if ( y > y1 ) { gh = y; y = y1; y1 = gh; }
gw = x1 - x + 1;
gh = y1 - y + 1;
}
btop = MainScreen->WBorTop + 1 + MainScreen->RastPort.TxHeight;
bleft = MainScreen->WBorLeft;
w = bleft + MainScreen->WBorRight + 300;
h = btop + MainScreen->WBorBottom + 85;
l = (( MainScreen->Width >> 1 ) - ( w >> 1 ));
t = (( MainScreen->Height >> 1 ) - ( h >> 1 ));
eb_Zoom[0] = 0;
eb_Zoom[1] = btop;
eb_Zoom[2] = 200;
eb_Zoom[3] = btop;
eb_nwTags[0 ].ti_Data = l;
eb_nwTags[1 ].ti_Data = t;
eb_nwTags[2 ].ti_Data = w;
eb_nwTags[3 ].ti_Data = h;
eb_nwTags[10].ti_Data = (Tag)MainScreen;
if ( g = CreateContext( &eb_GList )) {
ng.ng_LeftEdge = bleft + 56;
ng.ng_TopEdge = btop + 4;
ng.ng_Width = 236;
ng.ng_Height = 12;
ng.ng_GadgetText = "_Text ";
ng.ng_TextAttr = &Topaz80;
ng.ng_GadgetID = GD_TEXT;
ng.ng_Flags = PLACETEXT_LEFT;
ng.ng_VisualInfo = MainVisualInfo;
ng.ng_UserData = 0l;
g = CreateGadget( STRING_KIND, g, &ng, GTST_String, (Tag)label, GTST_MaxChars, (Tag)GT_MAXLABELNAME + 1, GT_Underscore, (Tag)'_', TAG_DONE );
SetStringGadget( g );
eb_Gadgets[ GD_TEXT ] = g;
ng.ng_TopEdge = btop + 20;
ng.ng_GadgetText = "_Label";
ng.ng_GadgetID = GD_LABEL;
g = CreateGadget( STRING_KIND, g, &ng, GTST_String, (Tag)slabel, GTST_MaxChars, (Tag)GT_MAXLABEL + 1, GT_Underscore, (Tag)'_', TAG_DONE );
SetStringGadget( g );
eb_Gadgets[ GD_LABEL ] = g;
ng.ng_LeftEdge = bleft + 96;
ng.ng_TopEdge = btop + 36;
ng.ng_GadgetText = "_Underscore";
ng.ng_GadgetID = GD_UNDERSCORE;
g = CreateGadget( CHECKBOX_KIND, g, &ng, GTCB_Checked, (Tag)eb_Score, GT_Underscore, (Tag)'_', TAG_DONE );
eb_Gadgets[ GD_UNDERSCORE ] = g;
ng.ng_LeftEdge = bleft + 266;
ng.ng_GadgetText = "_Disabled";
ng.ng_GadgetID = GD_DISABLED;
g = CreateGadget( CHECKBOX_KIND, g, &ng, GTCB_Checked, (Tag)eb_Disabled, GT_Underscore, (Tag)'_', TAG_DONE );
eb_Gadgets[ GD_DISABLED ] = g;
ng.ng_LeftEdge = bleft + 96;
ng.ng_TopEdge = btop + 51;
ng.ng_Width = 196;
ng.ng_Height = 13;
ng.ng_GadgetText = "Text _Place";
ng.ng_GadgetID = GD_TEXTPLACE;
g = CreateGadget( CYCLE_KIND, g, &ng, GTCY_Labels, (Tag)PlaceList, GTCY_Active, place, GT_Underscore, (Tag)'_', TAG_DONE );
eb_Gadgets[ GD_TEXTPLACE ] = g;
ng.ng_LeftEdge = bleft + 8;
ng.ng_TopEdge = btop + 68;
ng.ng_Width = 90;
ng.ng_GadgetText = "_OK";
ng.ng_Flags = PLACETEXT_IN;
ng.ng_GadgetID = GD_OK;
g = CreateGadget( BUTTON_KIND, g, &ng, GT_Underscore, (Tag)'_', TAG_DONE );
ng.ng_LeftEdge = bleft + 202;
ng.ng_GadgetText = "_CANCEL";
ng.ng_GadgetID = GD_CANCEL;
g = CreateGadget( BUTTON_KIND, g, &ng, GT_Underscore, (Tag)'_', TAG_DONE );
if ( g ) {
eb_nwTags[6].ti_Data = (Tag)eb_GList;
if ( eb_Wnd = OpenWindowTagList( 0l, eb_nwTags )) {
eb_Zoom[0] = l;
eb_Zoom[1] = t;
eb_Zoom[2] = w;
eb_Zoom[3] = h;
GT_RefreshWindow( eb_Wnd, 0l );
do {
WaitPort( eb_Wnd->UserPort );
while ( ReadIMsg( eb_Wnd )) {
switch ( Class ) {
case IDCMP_REFRESHWINDOW:
GT_BeginRefresh( eb_Wnd );
GT_EndRefresh( eb_Wnd, TRUE );
break;
case IDCMP_CLOSEWINDOW:
running = FALSE;
break;
case IDCMP_GADGETUP:
switch( Object->GadgetID ) {
case GD_UNDERSCORE:
FlipFlop( 0l, 0l, 0l, &eb_Score );
break;
case GD_DISABLED:
FlipFlop( 0l, 0l, 0l, &eb_Disabled );
break;
case GD_TEXTPLACE:
if ( place++ == 4 )
place = 0;
flag = PlaceFlags[ place ];
break;
case GD_OK:
Ok:
ok = TRUE;
case GD_CANCEL:
Cancel:
running = FALSE;
break;
}
break;
case IDCMP_VANILLAKEY:
switch( Code ) {
case 't':
ID = GD_TEXT;
goto Activate;
case 'l':
ID = GD_LABEL;
goto Activate;
case 'u':
FlipFlop( eb_Wnd, eb_Gadgets, GD_UNDERSCORE, &eb_Score );
break;
case 'd':
FlipFlop( eb_Wnd, eb_Gadgets, GD_DISABLED, &eb_Disabled );
break;
case 'p':
if ( place++ == 4 )
place = 0;
flag = PlaceFlags[ place ];
GT_SetGadgetAttrs( eb_Gadgets[ GD_TEXTPLACE ], eb_Wnd, 0l, GTCY_Active, place, TAG_DONE );
break;
case 'o':
goto Ok;
case 'c':
goto Cancel;
}
break;
Activate:
ActivateGadget( eb_Gadgets[ ID ], eb_Wnd, 0l );
break;
}
}
} while ( running );
}
}
}
if ( ok) {
ngFlags = flag;
ngLeft = x;
ngTop = y;
ngWidth = gw;
ngHeight = gh;
if ( NOT edit )
ok = MakeButton();
else {
RemoveAllGadgets();
ChangeButton( e );
Renumber();
ok = RemakeAllGadgets();
}
} else if ( NOT edit )
Box( x, y, x1, y1 );
if ( eb_Wnd ) CloseWindow( eb_Wnd );
if ( eb_GList ) FreeGadgets( eb_GList );
eb_Wnd = 0l;
eb_GList = 0l;
ClearMsgPort( MainWindow->UserPort );
return( ok );
}